home *** CD-ROM | disk | FTP | other *** search
/ Windows 3-Pak - Disc 3 / Infomagic - Windows 3-Pak (Disc 3 of 3).iso / Telnet-Clients / HOSTACCESS.exe / MISC.1 / BUTALT.MCR < prev    next >
Text File  |  1997-09-12  |  3KB  |  66 lines
  1. rem
  2. rem Create a Toolbar called 'tbox' on the botom of screen.
  3. rem
  4. print chr$(27);"_33;3;3wtbox;Sample";chr$(27);"\";
  5. rem
  6. rem Create a Floating Toolbox called 'fbox'
  7. rem
  8. print chr$(27);"_33;1;10;10;;;2wfbox;Sample";chr$(27);"\";
  9. rem
  10. rem Create a Command called escape and cmd1
  11. rem
  12. print chr$(27);"_33;5;2wescape;;type=t,l=Esc,s=60/16;Escape;;;;Escape";chr$(27);"\";
  13. print chr$(27);"_33;5;2wcmd1;;type=t,l=F1,s=32/16;Function key F1;;;;F1";chr$(27);"\";
  14. print chr$(27);"_33;5;2wquery;;type=t,l=Query,s=60/16;This is a report tool";chr$(27);"\";
  15. print chr$(27);"_33;5;2wcmd2;;type=t,l=F2,s=32/16;Function key F2;;;;F2";chr$(27);"\";
  16. print chr$(27);"_33;5;2wcmd3;;type=t,l=F3,s=32/16;Function key F3;;;;F3";chr$(27);"\";
  17. print chr$(27);"_33;5;2wcmd4;;type=t,l=F4,s=32/16;Function key F4;;;;F4";chr$(27);"\";
  18. print chr$(27);"_33;5;2wcmd5;;type=t,l=F5,s=32/16;Function key F5;;;;F5";chr$(27);"\";
  19. rem
  20. rem This command uses the bitmap found in the windows directory
  21. rem
  22. print chr$(27);"_33;5;2wtools;;f=c:\windows\redbrick.bmp,ft=bmp,;This is a Red Brick";chr$(27);"\";
  23. rem
  24. rem This command uses the bitmap embedded in the TERMW.EXE file (_hand)
  25. rem
  26. print chr$(27);"_33;5;2wquery2;;f=termw.exe,bm=_hand,ft=bmp,;This is another report tool";chr$(27);"\";
  27. rem
  28. rem Add the commands to the toolbar
  29. rem
  30. print chr$(27);"_33;4;1;8wtbox;escape";chr$(27);"\";
  31. print chr$(27);"_33;4;1;8wtbox;cmd1";chr$(27);"\";
  32. print chr$(27);"_33;4;1;8wtbox;query";chr$(27);"\";
  33. print chr$(27);"_33;4;1;8wtbox;tools";chr$(27);"\";
  34. print chr$(27);"_33;4wtbox;cmd2";chr$(27);"\";
  35. print chr$(27);"_33;4wtbox;cmd3";chr$(27);"\";
  36. print chr$(27);"_33;4wtbox;cmd4";chr$(27);"\";
  37. print chr$(27);"_33;4wtbox;cmd5";chr$(27);"\";
  38.  
  39. rem
  40. rem Add comands to the toolbox
  41. rem
  42. print chr$(27);"_33;4;1;8wfbox;query2";chr$(27);"\";
  43. print chr$(27);"_33;4;1;8wfbox;tools";chr$(27);"\";
  44. rem
  45. rem Show the toolbar 'tbox'
  46. rem
  47. print chr$(27);"_33;2wtbox";chr$(27);"\";
  48. rem
  49. rem
  50. rem Show the toolbox 'fbox'
  51. rem
  52. print chr$(27);"_33;2wfbox";chr$(27);"\";
  53. rem
  54. rem Enable Events on the 2 commands to react to the Clicked Event
  55. rem
  56. print CHR$(27);"_15;2;3wquery";chr$(27);"\";
  57. print CHR$(27);"_15;2;3wquery2";chr$(27);"\";
  58. print CHR$(27);"_15;2;3wtools";chr$(27);"\";
  59. rem
  60. rem creating alternative events. ie send the string to the host
  61. rem chr$(13) is the sending of the CR character
  62. rem
  63. print chr$(27);"_19;3wquery;Report 1";chr$(13);chr$(27);"\";
  64. print chr$(27);"_19;3wquery2;Report 2";chr$(13);chr$(27);"\";
  65. print chr$(27);"_19;3wtools;sending a red brick to the Host";chr$(13);chr$(27);"\";
  66.